home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1093.ZIP
/
MUSIC.ARC
/
BDAY.PAS
next >
Wrap
Pascal/Delphi Source File
|
1988-01-03
|
2KB
|
78 lines
program birthday; {Turbo Pascal 4.0}
{Plays "Happy Birthday" in 3-part harmony while displaying an
appropriate screen message. Key of F is a good one for singing
along. Developed by Ted Lassagne, Compuserve 70325,206. Uses
the unit Music.tpu}
uses Music, CRT;
const
n = 4;
var
i : integer;
begin
clrscr;
gotoxy(30,10); write('IT''S YOUR BIRTHDAY!');
gotoxy(28,12); write('HAPPY BIRTHDAY TO YOU!!!');
gotoxy(1,24);
delay(1000);
PLAY('l64mlt115');
{Happy Birthday to you, ...}
FOR I := 1 TO N div 2 do play('o3co2af');
FOR I := 1 TO N div 2 do play('o3co2af');
FOR I := 1 TO N do play('o3do2af');
FOR I := 1 TO N do play('o3co2af');
FOR I := 1 TO N do play('o3fco2a');
FOR I := 1 TO N*2 do play('o3eo2b-g');
{Happy Birthday to you ...}
FOR I := 1 TO N div 2 do play('o3co2b-e');
FOR I := 1 TO N div 2 do play('o3co2b-e');
FOR I := 1 TO N do play('o3do2b-e');
FOR I := 1 TO N do play('o3co2b-c');
FOR I := 1 TO N do play('o3gco2b-');
FOR I := 1 TO N*2 do play('o3fco2a');
{Happy Birthday, dear ________ ...}
FOR I := 1 TO N div 2 do play('o3co2af');
FOR I := 1 TO N div 2 do play('o3co2af');
FOR I := 1 TO N do play('o4co3af');
FOR I := 1 TO N do play('o3afc');
FOR I := 1 TO N do play('o3fco2a');
FOR I := 1 TO N do play('o3eo2b-f');
FOR I := 1 TO N*2 do play('o3do2b-f');
{Happy Birthday to you.}
FOR I := 1 TO N div 2 do play('o3b-fd-');
FOR I := 1 TO N div 2 do play('o3b-fd-');
FOR I := 1 TO N do play('o3afc');
FOR I := 1 TO N do play('o3fco2a');
FOR I := 1 TO N do play('o3gco2b-');
FOR I := 1 TO N*3 do play('o3fco2a');
PLAY('p4mlt120');
gotoxy(23,15);
write('HOW ');
FOR I := 1 TO N*2 do play('o3co2af');
write('OLD ');
FOR I := 1 TO N*2 do play('o3do2af');
write('ARE ');
FOR I := 1 TO N*2 do play('o3co2af');
write('YOOOOOOOOU ');
FOR I := 1 TO N*6 do play('o3e-o2af');
write('???');
{Optional salute at end}
delay(500);
sound(36);
delay(1500);
nosound;
delay(4000);
clrscr;
end.